unit InnerDefinition;

interface

type

TInnerDefinition = class
private
  fTableName: String;
  fKeyName: String;
  fUITableName: String;
public
  constructor Create(); overload;
  constructor Create(aTableName, aKeyName, aUITableName: String); overload;
  function getTableName(): String;
  function getKeyName(): String;
  function getUITableName(): String;
  procedure setTableName(aVal: String);
  procedure setKeyName(aVal: String);
  procedure setUITableName(aVal: String);
end;

implementation

{ TInnerDefinition }

constructor TInnerDefinition.Create(aTableName, aKeyName, aUITableName: String);
  begin
  inherited Create;
  setTableName(aTableName);
  setKeyName(aKeyName);
  setUITableName(aUITableName);
  end;

constructor TInnerDefinition.Create;
  begin
  inherited Create;
  end;

function TInnerDefinition.getKeyName: String;
  begin
  Result := fKeyName;
  end;

function TInnerDefinition.getTableName: String;
  begin
  Result := fTableName;
  end;

function TInnerDefinition.getUITableName: String;
  begin
  Result := fUITableName;
  end;

procedure TInnerDefinition.setKeyName(aVal: String);
  begin
  fKeyName := aVal;
  end;

procedure TInnerDefinition.setTableName(aVal: String);
  begin
  fTableName := aVal;
  end;

procedure TInnerDefinition.setUITableName(aVal: String);
  begin
  fUITableName := aVal;
  end;

end.
